home *** CD-ROM | disk | FTP | other *** search
/ Master Visual Basic 3 / Master Visual Basic 3 (SAMS Publishing) (1994).ISO / mvprog / original / ch29 / spread.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1994-04-14  |  1.6 KB  |  59 lines
  1. VERSION 2.00
  2. Begin Form frmSpread 
  3.    BackColor       =   &H000080FF&
  4.    Caption         =   "The Spread Program"
  5.    ClientHeight    =   4515
  6.    ClientLeft      =   1095
  7.    ClientTop       =   1485
  8.    ClientWidth     =   7365
  9.    Height          =   4920
  10.    Icon            =   SPREAD.FRX:0000
  11.    Left            =   1035
  12.    LinkTopic       =   "Form1"
  13.    ScaleHeight     =   4515
  14.    ScaleWidth      =   7365
  15.    Top             =   1140
  16.    Width           =   7485
  17.    Begin CommandButton cmdExit 
  18.       Caption         =   "E&xit"
  19.       Height          =   495
  20.       Left            =   360
  21.       TabIndex        =   1
  22.       Top             =   3840
  23.       Width           =   1335
  24.    End
  25.    Begin SpreadSheet Spread1 
  26.       FontBold        =   -1  'True
  27.       FontItalic      =   0   'False
  28.       FontName        =   "MS Sans Serif"
  29.       FontSize        =   8.25
  30.       FontStrikethru  =   0   'False
  31.       FontUnderline   =   0   'False
  32.       Height          =   3495
  33.       Left            =   360
  34.       MaxCols         =   10
  35.       MaxRows         =   10
  36.       TabIndex        =   0
  37.       Top             =   240
  38.       Width           =   6495
  39.    End
  40. Option Explicit
  41. Sub cmdExit_Click ()
  42.     End
  43. End Sub
  44. Sub Form_Load ()
  45.     ' Spread1.Col = 2
  46.     ' Spread1.Row = 3
  47.     ' Spread1.Value = "I'm cell B3"
  48.     ' Select the entire spreadsheet
  49.     Spread1.Col = -1
  50.     Spread1.Row = -1
  51.     ' Make the cell a float type
  52.     Spread1.CellType = 2
  53.     ' Set the current cell
  54.     Spread1.Row = 4
  55.     Spread1.Col = 3
  56.     ' Set the formula of cell C4
  57.     Spread1.Formula = "A1:A4"
  58. End Sub
  59.